home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Sort.Obj < prev    next >
Encoding:
Text File  |  1996-01-25  |  4.6 KB  |  9 lines  |  [TEXT/.Ob4]
  1. ¯6Oˇ‹(òa8<≤¶SortÇPAÉSortAÑ Ö$ `<Oberon;‚ÜDisplay$ !Texts;‚WêFonts;ı‰ƒViewers$…¢ãFiles$ÀúcTextFrames;˜ê
  2. MenuViewersܡ‚&ˇ« ˇ¡˝L˛í˛`˝ÿ¸È˝ú˝-˝ç
  3. ˝kˇˇ˝c ˝^˝Wˇ˛¸¯¸’¸Œ¸»¸ø¸π¸¶áSystem.Close  System.Copy  System.Grow  Edit.Search  Edit.StoreSorted.Textsorted. lines  line à|¶øÅˇêî!ˇ∏;·8êA;√;•Äa0ΩT¶8|&êaêA;Å8T«Ë˛|ȶ9ˇ¸9!4ÖHÖhïIïiBˇ8bÅǡËÄåˇ–8æ8¿ÄBˇËHÄA,û@Ê(8bÄǡËÄÑˇ–8¢ˇ‘8¿ÄBˇËHÄAC‡$8bÄ¢ˇËÄÖˇ–8¢ˇÃ8¿ÄBˇËKˇˇaÄA8bĬˇËÄܡ–8›8ºÄBˇËKˇˇ=ÄA8bÄ‚ˇËÄᡖÄBˇËHÄAÅˇ‡Äh`ÄÇÄBˇËHÄAÄÄ!|¶ªÅˇO‡ øaˇÏî!˛†;·@;√;§ëˇ¸;ûW€<Å?ˇ¸ÅI0ä æ–WÀ@.| Z8ˇ8`|i¶ÄfÄÜêgÑfîáÄÜBˇêgêáË@¯hÅˇ¸Å(0â ª–Wj@.Åˇ¸Åã0å0{ £–Td@.|©R|Ã"8¡ˇ9ˇˇ9 }GHÓ}hHÓäX@˛/ä@˛ˇÏäX@¸3{|õËAÂ$Åüˇ¸Äl0É ª–Wd@.8ø|√"8¡ˇ9ˇˇ9 }GHÓ}hHÓ
  4. X@˙/
  5. @˙ˇÏ
  6. X@¯‹Åüˇ¸Äl0É º–WÑ@.Äøˇ¸Ä≈0Ü ª–Wg@.}c"}Ü:8kˇ¸9}    ¶Å Å,ëÖ ï#Å,Bˇëë#;õW{<õË@¸hÄüˇ¸Ä§0Ö ª–Wf@.ġˇ¸Å0à1; ©–U*@.}e2}àR8kˇˇ8åˇˇ8†|√(Ó|‰(Ó|Ü8@Ê,Ü@ÊˇÏ|Ü8@‰3{C‡˛‹Åˇ¸Å(0â º–Wä@.|iR8ɡ¸8ø9`}i¶ÅeÅÖëdÖeïÑÅÖBˇëdëÑÄ!ªaˇÏO‡ |¶øÅˇêî!˛∞;·8êAê0;ƒ›p3ûˇˇ/@˘3Ωˇˇ8}8ú9Kˇ˝mC‡ˇ‰/ú@˝ËÄfl0Ü9_8‡|ȶÄÊÅêÍÑÊï
  7. ÅBˇêÍë
  8. Å0ãÅü0å º–WÉ@.|Ï9 ˇ¸8Ä|â¶ÄáÄßêàÑáî®ÄßBˇêàê®Å?0â º–Wä@.|iR8ɡ¸8ø9`}i¶ÅeÅÖëdÖeïÑÅÖBˇëdëÑ3úˇˇ8}8ú9Kˇ¸ÅC‡ˇÄ Ä!|¶ªÅˇO‡ |¶øˇ‡|‡&êê·î!ˇh;·8êA;√;§;Ö,ÜNf0B8ê0ê$êêúÉ</@˙C‡8 ÅˇËÄàˇÿ8º0ŸˇˇÄBˇËHÄA8 Å"ˇËÄâˇÿ8ø<ÄBˇËHÄAâ_</äA˛48bÅbˇËÄãˇ–8†ÄBˇËHÄA8|ÄÇÄBˇËKˇ˛ÌÄA8 ÅǡËÄåˇÿ8º8¿ÄBˇËKˇ˙¡ÄA8`∞};úÉ<@Ûê;@8 ÄǡËÄÑˇÿ8ø<ÄBˇËKˇ˙•ÄAû®Ω •–T¶@.|˛2 ∫â<}—Æ3Zâ?<,â@Êˇ∏û©] ™–UK@.}ûZ ∫8`|l—Æ“®ù0§∞Ω»@˙ˇ|C‡¥;@N@B8 ĬˇËÄܡÿ8ø<ÄBˇËKˇ˙ÄA@Ú àˇ</á A˝â<,à@ÊN@Çû©= ©–U*@.}~R ∫âü<}ã—Æ3Zà</@˙ˇòû®ù §–TÖ@.|fi* ∫8‡|Ê—Æ“AÚ©1(±=ò»@˛ˇTÄhÅ_dÄ!|¶}OÒ ªˇ‡O‡ |¶øˇ‡}`&êëaî!˛†;·8êA;√;§;Ö,ÜNf0B/NZ–B@Û3|ˇˇ; ˇˇC‡ ;`; @Ú‰9Äôü/ú@˝–ù ª–Wc@.|ù8ø8ƒˇˇ8¡ˇ9}&@Ó}G@Ó|âP@Ê,â@ÊˇÏ|âPAÊÑù ª–Wk@.|›Z8ˇ8`|i¶ÄfÄÜêgÑfîáÄÜBˇêgêáã;@/A˙48bÅˇËÄàˇ–8∏ÄBˇËKˇ˙}ÄA3Z ∫}?“ã    C‡ˇÃ{ 3úˇˇC‡ˇ0C‡p/ú@˝hù ª–Wj@.PÆ;@,òAÊ@8bÅbˇËÄãˇ–8∏ÄBˇËKˇ˜≈ÄA3Zù ª–Wl@.|}b ∫–ÆC‡ˇ¿{ 3úˇˇC‡ˇò8~ÄÇÄBˇËKˇ˙iÄAÄ0Äü,Ä!|¶|èÒ ªˇ‡O‡ |¶øaˇÏ|†&êê°î!˛(;·@êA;¿;†;Ä;`ìdì,ì ìì 8bˇ»8ÄÄBˇ¯HÄA;£8ĬˇËÄܡ‘Ä‚ˇ‡ÄßdÖÄ•Åˇ‡Ä»dÜÄΔ ÄBˇËHÄA8Å"ˇËÄ⡑ÄBˇËHÄA©_</
  9. @˙$âP/ã*@˛pÄBˇ‡HÄA;√ûÅûåÄlÄɡ¸Ä¢ˇ¯Ä≈ˇËĉˇÙ|á0@Ê4ûÉæùÅÅ(ˇ¸ÅBˇ¯ÅjˇËÅâˇÙlXÉΩùÉΩC‡®àP/^@˙ú8d8üh8øl8flpÄBˇ‡HÄAÄüp/ÑA¸tÄ¢ˇËÄeˇÙÄBˇ‹HÄA;É8|ÄBˇËHÄAÄdÄühÄøl8‹ÄBˇËHÄA8bˇƒ8ÄÄBˇ¯Kˇˆ≠ÄA;£8}8úÄBˇËKˇ˜!ÄAC‡(®fl<,Ü@Ê8T8ÄÄBˇ¯KˇıIÄA;£8Ä‚ˇËÄᡑÄBˇËKˇˆYÄAN`ÇN@ÇN Ç©</@˙Ëâ?P/â/@˛‹8ÅBˇËÄ䡑ÄBˇËKˇÙÒÄA©<,ã@Ê∏âüTqÉ_/RA˙$àüUpÖ_/ÖRA˛àflVp«_,áR@Ê N`BC‡N`ÇâTq    _/    EA˙$â_UqK_/ãEA˛âüVqÉ_,ÉE@Ê N@BC‡N@ÇàüTpÖ_/UA˙$àflUp«_/áUA˛âVq    _,âU@Ê N BC‡N Ç=@8j–ÄBˇ‹HÄA;c8{8ü\8Ω}`&Ufü˛Kˇ¯ç8{®ü\Kˇ˜98bˇ¿8ÄÄBˇ¯KˇıÄA;£8}8õ®ø\}Ä&UÜ߲|‡&TÁó˛Kˇ˙≠®\8ǡ∏8†KˇÛmÅˇ‡®h>8üX8øZÄBˇ‡HÄA8bˇ¨8Ä 8¢ˇl8¿@ÄBˇ¯HÄAêˇ¸8}8ÄÄBˇ¯HÄA8Éġ¸Å"ˇ¯®©®flX®ˇZÄBˇ¸HÄA;√;`8`ÄBˇ‡HÄAĆÅ_úÄ!|¶}OÒ ªaˇÏO‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8bÅbˇËÄãˇ–ÄBˇËHÄAÄÄ!|¶ª·ˇ¸O‡ âäVWjkoqÖÜóòúù≥¥∏∫ÕŒˆEs~ÄÉäå虨Ø∂∏ªÊÁˆ˜+,/]avxÄÇàäã¯Ã8WriteMsgn·{str„{¯·†¿SiftaÄi„{j‰{left·{right‚{¯≥ò8HSortArrayaÄarray∞–ÄÄleft‚{n·{right„{¯Ã‡8FillArrayR Xarray·{–ÄÄch<emptyLineså{i‰{jÂ{lenÊ{n‚{posÁ{text„{xwhiteç{¯¡®8FillTextarray‚{–ÄÄchÁ{deltaÊ{i‰{jÂ{lastÄn„{reverseå{text·{xuniqueç{¯–ò¿SortSTV·{|array‰{–ÄÄbegËbuf„{temptyç{endÏn‹reverseå{sel‰xtext‚{xtimeuniqueé{xÿy⁄¯·8$$WP